home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / mail / iris.lha / Iris / DelFolder.irx < prev    next >
Encoding:
Text File  |  1998-03-19  |  683 b   |  31 lines
  1. /* REXX-script to delete the contents of a folder      */
  2. /* $VER: IrisRMail.irx V1.1 (supplied with Iris V1.2b) */
  3.  
  4. address IRIS
  5.  
  6. options results
  7. options failat 11
  8.  
  9. messagefile
  10. if rc = 10 then do
  11.    selectmessage 0
  12.    if rc = 10 then do
  13.       askchoice '"Delete all messages"' '"There are no messages to*Ndelete in this folder!"' '*_OK'
  14.       exit
  15.    end
  16.  
  17.  
  18. askchoice '"Delete all messages"' '"Are you sure you want to delete all messages in this folder?"' '_Yes|_No'
  19.  
  20. if rc = 0 then do
  21.    selectmessage 0
  22.    messagefile
  23.    a=substr(result,1,length(result)-11)||"#?"
  24.    address command "DELETE" a
  25.    getfolder
  26.    fol=result
  27.    setfolder '"'||fol||'"'
  28.    setfolder '"'||fol||'"'
  29. end
  30.  
  31.